object dmData: TdmData
  OldCreateOrder = False
  OnCreate = DataModuleCreate
  Height = 556
  Width = 494
  object cntConexion: TSQLConnection
    ConnectionName = 'DataSnapCONNECTION'
    DriverName = 'Datasnap'
    LoginPrompt = False
    Params.Strings = (
      'HostName=localhost'
      'DriverUnit=Data.DBXDataSnap'
      'Port=8080'
      'CommunicationProtocol=http'
      'DatasnapContext=datasnap/'
      
        'DriverAssemblyLoader=Borland.Data.TDBXClientDriverLoader,Borland' +
        '.Data.DbxClientDriver,Version=16.0.0.0,Culture=neutral,PublicKey' +
        'Token=91d62ebb5b0d1b1b'
      'Filters={}'
      'DSProxyPort=211'
      'ServerConnection=TsmModulo.GetConnection')
    Left = 32
    Top = 16
  end
  object dspConexion: TDSProviderConnection
    ServerClassName = 'TsmModulo'
    SQLConnection = cntConexion
    Left = 32
    Top = 64
  end
  object cxLocalizer: TcxLocalizer
    StorageType = lstResource
    Left = 224
    Top = 16
  end
  object dsCiclo: TDataSource
    DataSet = cdsCiclo
    Left = 40
    Top = 128
  end
  object cdsCiclo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCiclos'
    RemoteServer = dspConexion
    AfterPost = cdsAfterPost
    AfterDelete = cdsAfterPost
    Left = 32
    Top = 120
    object cdsCicloID_CICLO: TStringField
      FieldName = 'ID_CICLO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsCicloNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
  end
  object dsSuelo: TDataSource
    DataSet = cdsSuelo
    Left = 112
    Top = 128
  end
  object cdsSuelo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspSuelos'
    RemoteServer = dspConexion
    AfterPost = cdsAfterPost
    OnCalcFields = cdsSueloCalcFields
    Left = 104
    Top = 120
    object cdsSueloID_SUELO: TStringField
      FieldName = 'ID_SUELO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsSueloARCILLA: TFloatField
      FieldName = 'ARCILLA'
    end
    object cdsSueloARENA: TFloatField
      FieldName = 'ARENA'
    end
    object cdsSueloNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsSueloMO: TFloatField
      FieldName = 'MO'
    end
    object cdsSueloDA: TFloatField
      FieldName = 'DA'
    end
    object cdsSueloLIMO: TFloatField
      FieldKind = fkCalculated
      FieldName = 'LIMO'
      Calculated = True
    end
  end
  object dsSubsistema: TDataSource
    DataSet = cdsSubsistema
    Left = 112
    Top = 248
  end
  object cdsSubsistema: TClientDataSet
    Aggregates = <>
    DataSetField = cdsSistemadtsSubsistemas
    Params = <>
    Left = 104
    Top = 240
    object cdsSubsistemaID_SUBSISTEMA: TStringField
      FieldName = 'ID_SUBSISTEMA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsSubsistemaNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsSubsistemaPROMEDIO: TFloatField
      DisplayLabel = 'EA prom (%)'
      FieldName = 'PROMEDIO'
    end
    object cdsSubsistemaMAXIMO: TFloatField
      DisplayLabel = 'EA max (%)'
      FieldName = 'MAXIMO'
    end
    object cdsSubsistemaUD: TFloatField
      DisplayLabel = 'UD prom (%)'
      FieldName = 'UD'
    end
    object cdsSubsistemaID_SISTEMA: TStringField
      FieldName = 'ID_SISTEMA'
      Size = 38
    end
  end
  object dsSistema: TDataSource
    DataSet = cdsSistema
    Left = 40
    Top = 248
  end
  object cdsSistema: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspSistemas'
    RemoteServer = dspConexion
    AfterPost = cdsAfterPost
    AfterDelete = cdsAfterPost
    Left = 32
    Top = 240
    object cdsSistemaID_SISTEMA: TStringField
      FieldName = 'ID_SISTEMA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsSistemaNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsSistemadtsSubsistemas: TDataSetField
      FieldName = 'dtsSubsistemas'
    end
  end
  object dsHistorico: TDataSource
    DataSet = cdsHistorico
    Left = 187
    Top = 186
  end
  object cdsHistorico: TClientDataSet
    Aggregates = <>
    DataSetField = cdsEstaciondtsHistoricos
    Params = <>
    Left = 179
    Top = 178
    object cdsHistoricoID_HISTORICO: TStringField
      FieldName = 'ID_HISTORICO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsHistoricoID_ESTACION: TStringField
      FieldName = 'ID_ESTACION'
      Size = 38
    end
    object cdsHistoricoFECHA: TSQLTimeStampField
      DisplayLabel = 'Fecha'
      FieldName = 'FECHA'
    end
    object cdsHistoricoETO: TFloatField
      DisplayLabel = 'Et0'
      FieldName = 'ETO'
    end
    object cdsHistoricoTEMP: TFloatField
      DisplayLabel = 'Temp'
      FieldName = 'TEMP'
    end
  end
  object dsDistrito: TDataSource
    DataSet = cdsDistrito
    Left = 43
    Top = 186
  end
  object cdsDistrito: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspDistritos'
    RemoteServer = dspConexion
    AfterPost = cdsAfterPost
    AfterDelete = cdsAfterPost
    Left = 35
    Top = 178
    object cdsDistritoID_DISTRITO: TStringField
      FieldName = 'ID_DISTRITO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsDistritoNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsDistritodtsEstaciones: TDataSetField
      FieldName = 'dtsEstaciones'
    end
  end
  object dsEstacion: TDataSource
    DataSet = cdsEstacion
    Left = 115
    Top = 186
  end
  object cdsEstacion: TClientDataSet
    Aggregates = <>
    DataSetField = cdsDistritodtsEstaciones
    Params = <>
    Left = 107
    Top = 178
    object cdsEstacionID_ESTACION: TStringField
      FieldName = 'ID_ESTACION'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsEstacionID_DISTRITO: TStringField
      FieldName = 'ID_DISTRITO'
      Size = 38
    end
    object cdsEstacionNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsEstaciondtsHistoricos: TDataSetField
      FieldName = 'dtsHistoricos'
    end
  end
  object dsFenologia: TDataSource
    DataSet = cdsFenologia
    Left = 264
    Top = 312
  end
  object dsVariedad: TDataSource
    DataSet = cdsVariedad
    Left = 184
    Top = 312
  end
  object cdsVariedad: TClientDataSet
    Aggregates = <>
    DataSetField = cdsTipodtsVariedades
    Params = <>
    Left = 176
    Top = 304
    object cdsVariedadID_VARIEDAD: TStringField
      FieldName = 'ID_VARIEDAD'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsVariedadNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsVariedadID_TIPO: TStringField
      FieldName = 'ID_TIPO'
      Size = 38
    end
  end
  object dsTipo: TDataSource
    DataSet = cdsTipo
    Left = 112
    Top = 312
  end
  object cdsTipo: TClientDataSet
    Aggregates = <>
    DataSetField = cdsCultivodtsTipos
    Params = <>
    Left = 104
    Top = 304
    object cdsTipoID_TIPO: TStringField
      FieldName = 'ID_TIPO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsTipoORDEN: TIntegerField
      DisplayLabel = 'Orden'
      FieldName = 'ORDEN'
    end
    object cdsTipoID_SISTEMA: TStringField
      DisplayLabel = 'Sistema'
      FieldName = 'ID_SISTEMA'
      Size = 38
    end
    object cdsTipoNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsTipoTUMIN: TFloatField
      DisplayLabel = 'Tc-min ('#176'C)'
      FieldName = 'TUMIN'
    end
    object cdsTipoTUMAX: TFloatField
      DisplayLabel = 'Tc-m'#225'x ('#176'C)'
      FieldName = 'TUMAX'
    end
    object cdsTipoKMAX: TFloatField
      DisplayLabel = 'Km'#225'x'
      FieldName = 'KMAX'
    end
    object cdsTipoKCO: TFloatField
      DisplayLabel = 'Kco'
      FieldName = 'KCO'
    end
    object cdsTipoXKMAX: TFloatField
      FieldName = 'XKMAX'
    end
    object cdsTipoPRO: TFloatField
      DisplayLabel = 'Pro (m)'
      FieldName = 'PRO'
    end
    object cdsTipoPRMAX: TFloatField
      DisplayLabel = 'Prm'#225'x (m)'
      FieldName = 'PRMAX'
    end
    object cdsTipoALPHA0: TFloatField
      DisplayLabel = 'Alpha0'
      FieldName = 'ALPHA0'
    end
    object cdsTipoALPHA1: TFloatField
      DisplayLabel = 'Alpha1'
      FieldName = 'ALPHA1'
    end
    object cdsTipoALPHA2: TFloatField
      DisplayLabel = 'Alpha2'
      FieldName = 'ALPHA2'
    end
    object cdsTipoALPHA3: TFloatField
      DisplayLabel = 'Alpha3'
      FieldName = 'ALPHA3'
    end
    object cdsTipoALPHA4: TFloatField
      DisplayLabel = 'Alpha4'
      FieldName = 'ALPHA4'
    end
    object cdsTipoALPHA5: TFloatField
      DisplayLabel = 'Alpha5'
      FieldName = 'ALPHA5'
    end
    object cdsTipoID_CULTIVO: TStringField
      FieldName = 'ID_CULTIVO'
      Size = 38
    end
    object cdsTipodtsVariedades: TDataSetField
      FieldName = 'dtsVariedades'
    end
    object cdsTipodtsFenologias: TDataSetField
      FieldName = 'dtsFenologias'
    end
  end
  object cdsFenologia: TClientDataSet
    Aggregates = <>
    DataSetField = cdsTipodtsFenologias
    Params = <>
    Left = 256
    Top = 304
    object cdsFenologiaID_FENOLOGIA: TStringField
      FieldName = 'ID_FENOLOGIA'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsFenologiaORDEN: TIntegerField
      DisplayLabel = 'Orden'
      FieldName = 'ORDEN'
    end
    object cdsFenologiaNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsFenologiaCLAVE: TStringField
      DisplayLabel = 'Clave'
      FieldName = 'CLAVE'
      Size = 50
    end
    object cdsFenologiaDGC: TFloatField
      DisplayLabel = #176'C'
      FieldName = 'DGC'
    end
    object cdsFenologiaID_TIPO: TStringField
      FieldName = 'ID_TIPO'
      Size = 38
    end
  end
  object dsCultivo: TDataSource
    DataSet = cdsCultivo
    Left = 40
    Top = 312
  end
  object cdsCultivo: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspCultivos'
    RemoteServer = dspConexion
    AfterPost = cdsAfterPost
    AfterDelete = cdsAfterPost
    Left = 32
    Top = 304
    object cdsCultivoID_CULTIVO: TStringField
      FieldName = 'ID_CULTIVO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 38
    end
    object cdsCultivoNOMBRE: TStringField
      DisplayLabel = 'Nombre'
      FieldName = 'NOMBRE'
      Size = 50
    end
    object cdsCultivodtsTipos: TDataSetField
      FieldName = 'dtsTipos'
    end
  end
  object dxSkinController: TdxSkinController
    NativeStyle = False
    SkinName = 'Office2007Blue'
    Left = 158
    Top = 16
  end
  object opnDialog: TOpenDialog
    Filter = 'CSV delimitado por comas (.csv)|*.csv'
    Left = 286
    Top = 16
  end
  object dsUsuarios: TDataSource
    DataSet = cdsUsuarios
    Left = 168
    Top = 72
  end
  object cdsUsuarios: TClientDataSet
    Aggregates = <>
    FieldDefs = <
      item
        Name = 'UCIDUSER'
        DataType = ftInteger
      end
      item
        Name = 'UCUSERNAME'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'UCLOGIN'
        DataType = ftString
        Size = 30
      end
      item
        Name = 'UCPASSWORD'
        DataType = ftString
        Size = 250
      end
      item
        Name = 'UCPASSEXPIRED'
        Attributes = [faFixed]
        DataType = ftString
        Size = 10
      end
      item
        Name = 'UCUSEREXPIRED'
        DataType = ftInteger
      end
      item
        Name = 'UCUSERDAYSSUN'
        DataType = ftInteger
      end
      item
        Name = 'UCEMAIL'
        DataType = ftString
        Size = 150
      end
      item
        Name = 'UCPRIVILEGED'
        DataType = ftInteger
      end
      item
        Name = 'UCTYPEREC'
        Attributes = [faFixed]
        DataType = ftString
        Size = 1
      end
      item
        Name = 'UCPROFILE'
        DataType = ftInteger
      end
      item
        Name = 'UCKEY'
        DataType = ftString
        Size = 250
      end
      item
        Name = 'UCINATIVE'
        DataType = ftInteger
      end
      item
        Name = 'MODULO_ID'
        DataType = ftString
        Size = 38
      end
      item
        Name = 'DIAS'
        DataType = ftSmallint
      end
      item
        Name = 'SINMODULO'
        DataType = ftSmallint
      end
      item
        Name = 'ESTACION_ID'
        DataType = ftInteger
      end
      item
        Name = 'CICLO_ID'
        DataType = ftString
        Size = 38
      end>
    IndexDefs = <>
    Params = <>
    ProviderName = 'dspUsuarios'
    RemoteServer = dspConexion
    StoreDefs = True
    OnCalcFields = cdsUsuariosCalcFields
    Left = 160
    Top = 64
    object cdsUsuariosUCUSERNAME: TStringField
      FieldName = 'UCUSERNAME'
      Size = 30
    end
    object cdsUsuariosUCLOGIN: TStringField
      FieldName = 'UCLOGIN'
      Size = 30
    end
    object cdsUsuariosUCPASSWORD: TStringField
      FieldName = 'UCPASSWORD'
      Size = 250
    end
    object cdsUsuariosUCEMAIL: TStringField
      FieldName = 'UCEMAIL'
      Size = 150
    end
    object cdsUsuariosCONTRASENIA: TStringField
      FieldKind = fkCalculated
      FieldName = 'CONTRASENIA'
      Size = 250
      Calculated = True
    end
  end
  object sdExcel: TSaveDialog
    Filter = 'Microsoft excel 97/2000/XP (.xls)|*.xls'
    Left = 352
    Top = 16
  end
  object dsParcelasGeneral: TDataSource
    DataSet = cdsParcelasGeneral
    Left = 296
    Top = 80
  end
  object dsSiembrasGeneral: TDataSource
    DataSet = cdsSiembrasGeneral
    Left = 296
    Top = 136
  end
  object dsRiegosGeneral: TDataSource
    DataSet = cdsRiegosGeneral
    Left = 296
    Top = 192
  end
  object cdsRiegosGeneral: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspRiegosGeneral'
    RemoteServer = dspConexion
    Left = 288
    Top = 184
    object cdsRiegosGeneralUSUARIO: TStringField
      DisplayLabel = 'Usuario'
      FieldName = 'USUARIO'
      Size = 30
    end
    object cdsRiegosGeneralCULTIVO: TStringField
      DisplayLabel = 'Cultivo'
      FieldName = 'CULTIVO'
      Size = 50
    end
    object cdsRiegosGeneralVARIEDAD: TStringField
      DisplayLabel = 'Variedad'
      FieldName = 'VARIEDAD'
      Size = 50
    end
    object cdsRiegosGeneralTIPO: TStringField
      DisplayLabel = 'Tipo'
      FieldName = 'TIPO'
      Size = 50
    end
    object cdsRiegosGeneralAVANCE: TFloatField
      DisplayLabel = 'Avance'
      FieldName = 'AVANCE'
    end
    object cdsRiegosGeneralGASTO: TFloatField
      DisplayLabel = 'Gasto'
      FieldName = 'GASTO'
    end
    object cdsRiegosGeneralLAMINA: TFloatField
      DisplayLabel = 'Lamina'
      FieldName = 'LAMINA'
    end
    object cdsRiegosGeneralORDEN: TIntegerField
      DisplayLabel = 'Orden'
      FieldName = 'ORDEN'
    end
    object cdsRiegosGeneralHORAS: TFloatField
      DisplayLabel = 'Horas'
      FieldName = 'HORAS'
    end
  end
  object cdsSiembrasGeneral: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspSiembrasGeneral'
    RemoteServer = dspConexion
    Left = 288
    Top = 128
    object cdsSiembrasGeneralUSUARIO: TStringField
      DisplayLabel = 'Usuario'
      FieldName = 'USUARIO'
      Size = 30
    end
    object cdsSiembrasGeneralSIEMBRA: TStringField
      DisplayLabel = 'Siembra'
      FieldName = 'SIEMBRA'
      Size = 50
    end
    object cdsSiembrasGeneralCULTIVO: TStringField
      DisplayLabel = 'Cultivo'
      FieldName = 'CULTIVO'
      Size = 50
    end
    object cdsSiembrasGeneralCICLO: TStringField
      DisplayLabel = 'Ciclo'
      FieldName = 'CICLO'
      Size = 50
    end
    object cdsSiembrasGeneralVARIEDAD: TStringField
      DisplayLabel = 'Variedad'
      FieldName = 'VARIEDAD'
      Size = 50
    end
    object cdsSiembrasGeneralSUPERFICIE: TFloatField
      DisplayLabel = 'Superficie'
      FieldName = 'SUPERFICIE'
    end
    object cdsSiembrasGeneralVOLUMEN: TFloatField
      DisplayLabel = 'Volumen'
      FieldName = 'VOLUMEN'
    end
    object cdsSiembrasGeneralSUBSISTEMA: TStringField
      DisplayLabel = 'Subsistema'
      FieldName = 'SUBSISTEMA'
      Size = 50
    end
    object cdsSiembrasGeneralSISTEMA: TStringField
      DisplayLabel = 'Sistema'
      FieldName = 'SISTEMA'
      Size = 50
    end
    object cdsSiembrasGeneralRENDIMIENTO: TFloatField
      DisplayLabel = 'Rendimiento'
      FieldName = 'RENDIMIENTO'
    end
  end
  object cdsParcelasGeneral: TClientDataSet
    Aggregates = <>
    Params = <>
    ProviderName = 'dspParcelasGeneral'
    RemoteServer = dspConexion
    Left = 288
    Top = 72
    object cdsParcelasGeneralUSUARIO: TStringField
      DisplayLabel = 'Usuario'
      FieldName = 'USUARIO'
      Size = 30
    end
    object cdsParcelasGeneralSUPERFICIE: TFloatField
      DisplayLabel = 'Superficie'
      FieldName = 'SUPERFICIE'
    end
    object cdsParcelasGeneralUBICACION: TStringField
      DisplayLabel = 'Ubicaci'#243'n'
      FieldName = 'UBICACION'
      Size = 50
    end
    object cdsParcelasGeneralESTACION: TStringField
      DisplayLabel = 'Estaci'#243'n'
      FieldName = 'ESTACION'
      Size = 50
    end
    object cdsParcelasGeneralSUELO: TStringField
      DisplayLabel = 'Suelo'
      FieldName = 'SUELO'
      Size = 50
    end
  end
end
